home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / UNINSTAL.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-01-29  |  609 b   |  30 lines
  1. 10  'UNINSTAL - 09 APR 94 rev. 28 SEP 96
  2. 20  IF EX$=""THEN EX$="EXIT"
  3. 30  CLS
  4. 40  COLOR 7,0,0
  5. 50  OPEN"I",1,"\data\docfiles\uninstal.txt"
  6. 60  IF EOF(1)THEN 130
  7. 70  LN=LN+1
  8. 80  INPUT#1,A$
  9. 90  PRINT A$;
  10. 100  IF LN<24 THEN PRINT ""
  11. 110  IF LN=24 THEN GOSUB 170:LN=0:CLS
  12. 120  GOTO 60
  13. 130  CLOSE
  14. 140  GOSUB 170
  15. 150  CLS:RUN EX$
  16. 160  '
  17. 170  'HARDCOPY
  18. 180  GOSUB 290:LOCATE 25,2:COLOR 14,6
  19. 190  PRINT " Press 1 to print screen, 2 to print screen & ";
  20. 200  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  21. 210  Z$=INKEY$:IF Z$="3"THEN GOSUB 290:RETURN
  22. 220  IF Z$="1"OR Z$="2"THEN GOSUB 290:GOTO 240
  23. 230  GOTO 210
  24. 240  FOR QX=1 TO 24:FOR QY=1 TO 80
  25. 250  LPRINT CHR$(SCREEN(QX,QY));
  26. 260  NEXT QY:NEXT QX
  27. 270  IF Z$="2"THEN LPRINT CHR$(12)
  28. 280  GOTO 180
  29. 290  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  30.